home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / AuldLangSyn.dxr / 00067_stock card.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.2 KB  |  39 lines
  1. on beginSprite me
  2.   global foundation
  3.   sprite(me.spriteNum).visible = 1
  4.   sprite(me.spriteNum).loc = point(135, 65)
  5. end
  6.  
  7. on mouseDown me
  8.   global stock, reserve
  9.   repeat with i = 1 to reserve.count
  10.     if stock.count = 0 then
  11.       exit repeat
  12.     end if
  13.     if reserve[i].count = 0 then
  14.       fixempty(i)
  15.       next repeat
  16.     end if
  17.     sprite(reserve[i][reserve[i].count].spnum + 1).member = stock[1].rank & "_" & stock[1].suit
  18.     sprite(reserve[i][reserve[i].count].spnum + 1).visible = 1
  19.     sprite(reserve[i][reserve[i].count].spnum + 1).locZ = reserve[i][reserve[i].count].spnum + 1
  20.     reserve[i].addProp(string(reserve[i][reserve[i].count].spnum + 1).symbol, new(script("card"), reserve[i][reserve[i].count].spnum + 1))
  21.     stock.deleteAt(1)
  22.     puppetSound(3, "deal1")
  23.     updateStage()
  24.   end repeat
  25.   if stock.count = 0 then
  26.     sprite(me.spriteNum).visible = 0
  27.   end if
  28. end
  29.  
  30. on fixempty ui
  31.   global reserve, stock, firstSprite
  32.   put ui
  33.   sprite(firstSprite[ui]).member = stock[1].rank & "_" & stock[1].suit
  34.   stock.deleteAt(1)
  35.   sprite(firstSprite[ui]).visible = 1
  36.   reserve[symbol(string(sprite(firstSprite[ui]).startFrame))].addProp(symbol(string(firstSprite[ui])), new(script("card"), firstSprite[ui]))
  37.   sprite(firstSprite[ui]).locZ = firstSprite[ui]
  38. end
  39.